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EDITORIAL 


Todos los meses, con la revista, pretendemos que 

sea una guía práctica, incluyendo gran variedad de 
- programas para que puedas disfrutar mientras 

aprendes. 

Encontrarás programas que te mostrarán cómo 

construir imágenes de cualquier forma y a la vez 

utilizar el color. 

También verás cómo se usan los sprites y a diseñar 

tus propios caracteres. 

Otros programas te mostrarán cómo aplicar 

gráficos de alta resolución, a producir efectos 

sonoros y música. 

Diviértete. 
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PEO AS 


DE LOS PROCRAHAS 


Í 


GEN ERADOR DE 
-SPRITES 


Adol loolalalalalolollolalalololololojojor 
* k 
* GENERANOR TIE SPRITES kx 


1001 
1002 
1003 


A ox 
1005 Adal lalala lalalala lalalala 
1010 


1020 
10430 
1040 
1050 
1060 


Za PINTAR X . RORRAR 

SPARE: PHNTO- CURSORES. CONTROL 
Ya MUESTRAS (0> ¿A% RETURN. FIN) 
NM. MATAS DEL. SPRITE EN CURSO. 


a e E 


1070 R. RUN. Cs CELS ; 
1080 M. METE CFN Aaa Y GRABA | 
1090 Es ESPEIO- 
1100 Eje ENTRÁNUCE SPRITE EN CURSO 
¿11:10 
1120 
ABC 


1140 POKFRSHECAR, 1 :CLEAR-3000 ¡51000! :DIM 6+(2559)— 
1150 ON. ERROR GOTO 2030. 
11606 SCREFN 1,1,0:KEYOFF 
1170 COLOR l, 4, 4 E 
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1180 INPUT "1. 8x8 2. 26x16  ..."qM / 

1190 CLS:SCREEN 1, (MX2)-1,0 2Y / 2 Le 

1200 DIM G(Mx8,Mx8) Pe S 
1210 FOR X=1 TO MXS:FOR Y=1 TO MX8 ÉL l: ias 
1220 VPOKF 8192,2B11110011 : OTE 


1230 LOCATE Y,X:PRINT"*":6(X,Y)=0 
1240 NEXT Y¿NEXT x 

1250 X=11Y=1:1M0=0 

1260 GOSUR. 1540 

1270 GOSUR 1540 

1280 IF A$="1" THEN GOSUB 1750 | 

1290 IF A$="C" THEN 1210 

1300 IF-A$="R" THEN ERASE G:GOTO 1160 

1310 IF A$="D" THEN 1880 

1320 IF A$="E" THEN GOSUB 1940 

1330 1F A$="4Y" THEN GOSUB 1360 

1340 IF AS="M" THEN GOSUB 1440 

1350 GOTO 1260 

1360 B$=INKEY$:1F B$="" THEN 1360 

1370 IF B$="0" THEN S=S+1:1F S>255 THEN s=0 

1380 IF B$="A" THEN S=S-1:1F S<0 THEN S=255 

1390 LOCATE 19,0:PRINT"SP"¿S¿" 0" 

1400 SPRITES(0)=6$ (8) | 

1410 PUT SPRITE 0,(175,30),1,0 

1420 1F B$=CHR$(13) THEN. RETURN 

1430 GOTO 1360 

1440 GOSUB 1530: INPUT "DIRECCION COMIENZO:";DC:DF=DC 
1450 GOSUB 1530:INPUT "SPRITE INICIAL :"¿S1 

1460 GOSUB 1530: INPUT "SPRITE FINAL :"¿,SF 

1470 FOR 2=51 TO SFs*FOR L=1 TO (8 AND M=1)+(32 AND M=2) ¿POKE DF,ASC(MIDS$(G$(Z) ,L 
112) :DF=DF+1 

1480 NEXT L:NEXT Z:GOSUB 15303PRINT"DIRECCION FINAL"¿DF 

1490 PRINT "LO GRABAS (S/N)" a 
1500 IF INKEYS$="S" THEN BEEP:BSAVE "cas:GRP",DC,DF:GOTO 1530 
1510 IF INKEYS$="N" THEN GOTO 1530 

1520 GOTO 1500 

1530 FOR A=18 TO 21:LOCATE O,A:PRINT" 

E 0,18:RETURN 

1540. D=STICK(0) 

1550 1F MI=8 OR D=1 OR D=2 THEN X=X-1:1F X<1 THEN X=1 
1560 IF D=6 OR D=5 OR D=4 THEN X=X+1 


TIVA JU Y 


1570 IF D=2 OR D=3 OR D=4 THEN Y=Y+1 

1580 IF D=8 OR D=7 OR D=6 THEN Y=Y-1:1F Y<i THEN Y=1 
1590 IF-M=2-THEN 1630 

1600 IF. .X>8 THEN. .X=8 


1510 IF Y>B THEN Y=8 

1520 RETURN 

1530 IF X>16 "THEN X=16 

1540 IF Y>16 THEN Y=16 

1550 RETURN 

1560 LOCATE Y,X:PRINT"E" 

1570 AsS=INKEYS 

1580 IF A$="Z" THEN MO=1 

1590 IF A$="X" THEN -MO=0 

1700 D=STRIG(O0) | 

1710 1F D=-1 THEN G(X,Y)=MO 

1720 LOCATE Y,X:1F GX, Y)=0 THEN PRINT"+ 

1730 IF G(X, Y) =1 THEN PRINT"B" 

1740 RETURN pa Ss : Ei E 
1750 LOCATE 0,18: INPUT "SPRITE (0- 255) 458: S$="":¿LOCATE 0,18:PRINT"... E E 

1760 FOR B=1 TO MxS STEP 8 | 

1770 FOR A=1 TO Mx8 STEP 8 | 4 

1780 FOR-X=A TO A+7:V=0:0=7 . A: A 

6521212) La] oc o tuz o 


1! qe Ea lotocihe toos d 
147 b11052 91 pra tol y | 
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1790 FOR Y=B TO E+7; Y=Y+B(X, Y) 2" (0) :¿C=C-1 
1800 NEXT Y :S$=S$+CHRS (Y) 
1810 NEXT X:NEXT A:NEXT E 
1820 G$(S)=S$ 
-1830 SPRITE$(0)=S$ 
1840 LOCATE-19,0: Ai ju 
1850 PUT SPRITE 0, (175.30). 
1860 X=1:Y=1 
1870 RETURN TIA 


1880 LOCATE 0,18: INPUT “"SPRITE:"3S:SCREEN O 


1890..A$=STR$ (5) ¿FRINTIOOO+S "DATA. ..".; 
.. 1900 V=(8_ AND M=1)+(32 AND M=2) 
1910 FOR A=1 TO Y i 


1920 V$= =STR$ (ASC (MIDS (SS, As DY) ¡PRINT MIDS (V$,2,5) 3 :IF A<>V THEN PRINT", 


1930 NEXT-A7END 
-1940-A=MK8 AD | 
(1950 FOR L=1 TO A:FOR Z=1 TO A/2 


11960 C=G(L,Z) 16(L,Z2)=G(L,A+1-Z) :G(L,A+1-Z)=0 


1970 NEXT Z:FOR Z=1 TO A:¿LOCATE Z,L 


1980 1F 6(t5,Z2)=0 THEN PRINT"." ELSE PRINT"E" 


1990 NEXT Z 
2000 NEXT L. 
2010 RETURN 


2020 FOR N=0 TO 32X1:VPOKE 14336+N,PEEK(53100!+N) ¿NEXT N 


-2030 BEEP:SCREEN-0: :PRINT"ERROR...":1F ERR=5S THEN PRINT:> PRINT"DEF INE. PRIMERO El....5 
PRRITES memos E INTRODUCELO EN UNA MUESTRA." 
2040 FOR A=1 TO 2000:NEXT A:ERASE G:RESUME 1190 
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+. 


ONRRRRERORERRRRALRRROARAARAR 


ES E A EX E IMSS ES 


y ES EXA 


EDITOR DE 
CARACTERES 


ÓN UA MU OE ML SA AB 


“EDITOR NE CARACTERES x 
ERE X 
2 lalalala lalollolalolallOlolook 


y 
50 DEFINT A-7:CLEAR 500,55890!:KEYOFF:SCREEN 1,0,0:COLOR 1,10,10:CLS 

60 DATA255,129,129,129,129,129,129,255,255,255,255,255,255,255,255,255 

70 RESTORE60 :FORA=2024T02039 ¿READB :VPOKEA ,B:NEXTA 

80 VPOKE8223,31:LOCATE,,0 

90 DIMG (8,8) ,H(8,8) :GOSUB400 

100 LOCATE, ,O:FORX=1T08:FORY=1T08:G(X,Y)=0:H(X,Y)=0:NEXTY ¿NEXTX 

110 GOSUB380 

120 X=1:Y=1:P=0 

130 D=STICK(0) 

140 IFI'=10RD=SBORD=2THENX=X-1 :1FX<1THENX=1 

150. IFD=40RD=SORD=6THENX=X+1 : 1FX>8THENX=8 

160 IFD=20RD=30RD=4THENY=Y+1 2 1F Y >BTHENY=8 

170 IFD=S0RD=70RD=6THENY=Y-1 :1FY<1THENY=1 

180 LOCATEY,X,1 

190 IFSTRIG(0)=-1THENG(X,Y)=P 

200 T$=INKEYS:IFT$=""THENFORA=1T030:NEXTA ELSE LOCATE,,0:GOSUB230 

210 LOCATE, ,O:LOCATEY ,X+PRINTCHR$ (25346 (X,Y)); 

220 GOTO 130 

230 POKERHFCAB,O:1FT$="Z"THENP=1 

240 IFT$="X"THENP=0 

250 IFT$="D"THENBEEP : IFVPEEK (385) =136THENFORA=384710727 :B=VPEEK (A) ORZXVPEEK (A) ¿UP 
OKEA ,B/4 :NEXTA :BEEP 
260 IFT$="C"THENBEEP :GOTO100 

270 IFT$="I"THENGOSUB440:INPUT"EN QUE CARACTER: "3C$:C=ASC (0$) :GOSUB460 :GOSUB440 
2680 IFT$="P"THENGOSUEB440 : INPUT"QUE CARACTER:"¿C$:C=ASC (0$) :GOSUB480 :GOSUB440 
290 IFT$="M"THENBEEP :GOSUBS10 

300 IFT$="E"THENBEEP :GOSUBS70 :BEEP 

310 IFT$="W"THENBEEP :GOSUBS90 :BEEP 

320 IFT$="0"THENBEEP :GOSUB610 :BEEP 

330 IFT$="R"THENBEEP :¿GOSUB640 :BEEP 

340 IFT$="V"THENBEEP :GOSUB690 :BEEP 
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350 
360 


¿370 


380 
390 
400 
210 
420 
430 
440 
450 


IFT$+="S"THENBEEP :GOSUB850 :BEEP 
IFTS$="L"THENBEEP :¿GOSUBI60 :BEEP 
POKERHFCAB ,255 ¿RETURN 

“Xx SACA CELDILLA Xxx 
FORA=1T08 :FORB=1T08 :¿LOCATEB,A :PRINTCHR$ (253+6G (4,B)) 3 ¿:NEXTB:NEXTA :RETURN 
“XX MUESTRA Xx 

C=40 :FDORA=1T09 : FORB=1T024 ¿LOCATEB+1.,A+9 


1FC<>127THENPRINTCHR+$(C)-5 

C=C+1 :¿NEXTB :NEXTA ¿RETURN 

“Xx BORRA INPUT kx 

FORA=20T023: 1LOLATES, ASPRINT" "3 ¿NEXTA :LOCATE1,21 


RETURN 


460 
470 


480 
490 


¿XX METE CARACTER Xxx 
D=CX8 :FORA=1T08 :V=0 ¿FORB=1T08 :¿V=V+2" (8-B)XG(A,B) ¿NEXTB:VPOKED,V:D=D0+1:¿NEXTA : 


[RETURN 


“XX SACA CARACTER XxX 
D=CX8 :FORA=1708:V=VPEEK(D):+FORB=1T08 :W=VAND (27 (8-B)) :1FW=2" (8-B) THENG(A,B)=1 


ELSE.G(A4,B)=0 


500 
510 
520 
530 
540 
350 
560 
570 
580 
590 
600 
610 
620 
630 
640 
6350 
660 


670" 


680 
6790 
700 
710 
720 
730 
740 
730 


760 
770 


780 
790 
800 
8i0 


NEXTB :D=D+1 ¿NEXTA :GOSUB380 ¿RETURN 

*xx PIZARRA Xx 

TE=0:FORA=1TO8:LOCATE1O,A:PRINT" "5 :NEXTA:LOCATE1O,1,1 
T$=INKEY$:1FT$<>""THENTE=ASC(TS$) 

IFTE=27THENBEEP ¿RETURN 

PRINTTS5 

GOTO 3530 

“Xx ESPEJO HORZ. *Xx 

FORA=1T08:F? "51704 :SWAPG(A,B) ,61A,9-B) :MEXTB:MEXTA :50T0280 
“Xxx. ESPEJO. Vo. kx 
FORA=1T04:F%:3=1T08 ¡SWAPG(9-A4,B) ,E14,B) ¿NEXTB:MEXTA : 5070380 
*Xkx INVERTIR Xx 

FORA=1T08 :FORB=1T08:1FG(A,B)=1THENG(A,B)=0 ELSE G6(A,B)=1 
NEXTB:NEXTA:60T0380 

“XX ROTAR xx 

FORA=1T08 :FORB=1T08 

H(B,9-A)=G(A,B) ¿NEXTB :NEXTA 
FORA=1T08:FORB=17T08:G(A,B)=H(A,B) ¿NEXTB:¿NEXTA 

GOTO 380 

“AX. .COLORES XxX 

GOSUB440:PRINT" Xx*x CAMBIO DE COLORES: xx" 
FORA=1T08:LOCATE10O,A:PRINT" "> ¿NEXTA 
Tl=1:PA=10:HL=12 

D=STICK(0) 

IFD=1 THENAL=HL-1 3 IFHL<OTHENHL=0 
IFD=STHENHL=HL +1: 1FPHL>31 THENHL=31 
IFD=7THENTI=71+1:1FTI>1STHENTI=0 
IFD=3THENPA=PA+1 : IFPA>1S5THENPA=0 

LOCATE.--10,1:PRINT"HL-:"5HL 

LOCATE 10,3:PRINT"TI:"$TI 

LOCATE 10,5:PRINT"PA:"sPA 

VA=VPEEK (8192+HL.) ¿VPOKE (8192+HL) ,0O:FORA=1T020 ¿NEXTA :VPOKE (8192+HL) ¿VA:FORA=1 


TOSO3NEXTA 


820 
830 
840 
8:30 
860 
870 


:880 


3890 


:900 
$10 
:920 


930 
940 


IF INKEY$=CHR$(27) THENGOTO440 
IFSTRIG(0)=-1THENVPOKE8192+HL ,PA+TIX16 :BEEP 
GOTO 730 

"xk. SAVE kx 

GOStB440:PRINT"GUARDANDO EN MEMORIA..." 
DATA1-,0,8,17,0,0,33,88,218,205,92,0 
DATA1.,32,0,17,0,32,33,88,226,205,92,0,201 
FORA=0T02047 ¿POKEA+55896! ,VPEEK (A) ¿¡NEXTA 
FORA=0T031 :POKEA+57944! ,VPEEK (A+8192) ¿NEXTA 
RESTORE870 :FORA=57976 'TOS8000 ! :READB :POKEA,B:NEXTA 
GOSUB440 : INPUT "NOMBRE +" ¿N$:1FN$=""THEN9SO 


N$="CAS :"+N$ :N$=MID$ (N$,1,10) 


BSAVE N$ 55896! 58000! ,57976! 
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950. GOSUB440 ¿RETURN 

960 'KX LOAD Xx | 

970 GOSUB 440:PRINT"CARGANDO..." :BLOAD "CASE",R E MM 
780 GOSUB440:RETURN NU AM UY 
1000 
1010 
1020 


xk DATOS RUTINA RXRAX1121 


11030 “58000 -----— SPRITES 
1040" 57976 -——-— RUT1 TIPOS 
1050 *.57988 ----— RUTZ COLOR 


EM MS E 


1060. 
1070 
1080” 


5/944 —- 57973 COLORES 
35896 -— 57943 TIPOS 
XAXIXXLAXEXADE 1111111 L 


os 


E RR 
OE EE EE O 


1000 " kKKKXEXAXA 
1001.” x 
1002 * * DIBUJO 
1003 
10042 OO 
1010 
1020 

1030 

1040 

PoR. 2A. : 
1060 CLEAR 500,49100! :POKESHFCAB,255:GOSUB 1650 :DEFINTA-Z 
1070 KEYOFF:COLOR 1 tiesa O: INPUT"TINTA:"+T:PRINT: INPUT "PAPEL +"3P: PRINT: 
INPUT "BORDER:";B i 
1080 SCREEN 2,0,0 
1090 COLOR T,P,B:CLS 
1100 OPEN "GRP:" ASH1 
1110 DEFUSR1=49150! :DEFUSR2=49175! 
1120 DATA: 16,14,16,238,16,16,165,0 
1130 RESTORE 1120:FORA=143367014343:READC :VPOKEA ,C: NEXTA 
1140 BO=0;X=127:Y=80 :XB=X :YB=Y:PA=1 
1150 D=STICK(0) 

1160 IFD=10RD=20RD=STHENY=Y-PA :IFY<OTHENY=0 
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1170 
1180 
1190 
1200 
1210 
=Y 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 


1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
l 1530 
A 1550 
1560 
1570 
1580 
1590 
1600 
Lid1o. 
: ¡1620 
—T6gOo 
-1640 
1650 


TIFD=40RD=SORD=6THENY=Y+PA:IFY>191THENY=191 
IFO=20RD=30RD=4THENX=X+PA: 1FX>255THENX=255 
1FD=80RD=70RD=6THENX=X-PA 1: IFX<OTHENX=0 
PUTSPRITEO, (X-3,Y-4),T,0 


IFSTRIG(0) 


=-1THENIFBO= OTHENPSET (X 1) 374 XB=X:YRB=Y ELSE REE ¿Y0yTi XBE=X:YR 


Té$=INKEY$ :IFTSF<>""THENGOSUB1240 
GOTO 1150... 


TE=ASC (T3$) 


IFTE=24THENIFPA=8THENPA=1ELSEPA=8 
IFT+$="V"THENA=USRI (0) ¿LINE (XB,YRB)=(X,Y),T 
IFT$="Z"THENA=USR1(0) ¿LINE(XB,YB)-(X,Y) ,T1XB=X : YB=Y 
IFT$="N"THENA=USRI (0) ¿LINE(XB,YB)-(X,Y) ,T,B:XB=X :YB=Y 
IFT$="C"THENA=USRI (0) ¿LINE(XB,YB)-(X,Y) ,T,BF :XB=X :YB=Y 


IFT$="F"THENA=USRI (0) ¿PAINT(X,Y) 


5 Tot 


IFT$="="THENT=T+1:5 IFT>15THENT=0 


IFT$="- 


="THENT=T-1 :IFT<OTHENT=15 


IFT$="="0RT$='"-"THENA=USRI (0) :PRESET (160,180) ¿PRINTR*1.“COLOR:"¿TE¿LINE (20, 


180)-(140,187) ,T,BF :BEEP :BEEP :FORA=1T0350 : NEXTA: A=USR2 (0) 


IFTE=8THENBEEP : A=USR2 (0) 
IFT$="B"THENGOSUB1460:CIRCLE(X,Y) ,E,T 


IFT$= 


"A" THENGOSUB1460 


IFT*$="S"THENGOSUB1460 
IFT$="L"THENGOSUB1460 
IFT$="1"THENRO=0 
IFT$="2"THENBO=1 
IFT$="3"THENBO=1 :T=P 
IFT$="5"THENCLS 
IFT$="6"THENRUN 
IFT$="7"THENGOSUB1530 


RETURN 


A=SUSRI (0) ¿SCREEN O:COLOR 1,15,15 

IFTS="B"THENINPUT"RADIO:"4C 

IFT$="A"THENINPUT"PASO: "¿PA 

IFTS$="S"THENINPUT"SAVE, NOMBRE :"¿N$:N$="CAS:"+NS:BSAVE M$,49175! 61498"! 
IFT$="L"THENBLOAD"CAS:" 
IFTS$="T"THENINPUT"TINTA:"¿TI:PRINT+INPUT"PAPEL 2" 5PL:V=TIH16+PL 

SCREEN 2:COLOR T,P.,B:CLS:A=USR2 (0) ¿RETURN 

XZ=X1XZ=X/8:YZ=Y 


Y=Tk16+P- 


D=STICK (0) 


IFD=10RD=BORD=2THENY=Y-1 : IFY<OTHENY=0 
IFD=40RD=SORD=S5STHENY=Y+1 :1FY>191THENY=191 
IFD=20RD=30RD=4THENX=X+1 :1FX>31THENX=31 
IFD=60RD=70RD=98THENX=X-1 + 1FX<OTHENX=0 
PUTSPRITEO.,, (XXx8.,Y-4.).,T 


IFSTRIG(0) 


=-1THENVPOKE (8192+Y MOD 8+Xx8+256XINT(Y/8)),V 


T$=INKEYS:1FT$="T"THENGOSUB1460 
IFTS$="R"THENX= DE Y=YZ ¡BEEP ¿RETURN 


GOTO- 1550 


DATA 1,0.,18, 21 ,0,0,11 5% Co,CD,59,0,1,0,18,21,0,20,11 ,3A, De, CO, 39, 0,09. 1,0s 


18,11,0,0,21,3A,C0,CD,5C, 19414 
(1660 RESTORE 1650 | 

1670 FOR A=49150" 
-1680- RETURN 


18, 11, Oo, 20, 21, 34,D8, ¿CD, 5C, O, ¿C9, E7 


To 49200! 1READ AS :B= ht de dalla ¿POKE AyB: a Ll 
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(FB) REESE Pts 7 a 171 IM 


f f Y 


PERA 


AS POSO 


a 
[a 


GUSANO GLOTON 


1000 * AXXIIAAAAIiiii11 
1001 * x 1 
1002 * *X GUSANO GLOTON £ 
1003 * Xx k 
1004. * adadididlooiciodoododr 
1010 * 
1020 ' 
1030 * 


1040 KEYOFF :BEEP 
1050 SCREEN 3:COLOR 15,0,0:CLS 

1060 OPEN "GRP:"AS*1i 

1070 PSET (40,50) ,1:COLOR 9:PRINTS1 “GUSANO” 

1080 PSET (40,90) ,1:COLOR 9:PRINT*1 .“GLOTON” 

1090 CLOSE 

1100 LINE (0,35)-(255,35), 

1110 LINE (0,125)-(255,1 0 cd 

1120 PLAY "VISCDEFGDFECFDFECCC","V1SOSCDEFGDFECFDFECCC" 

1130 IF PLAY(0)=-1 THEN 1130 

1140 * PREPARACION “ 
1150 KEYOFF :BEEP 

1160 SCREEN 1,1,0 

1170 COLOR 15,1,1:CLS 

1180 * GRAFICOS * 

1190 DATA 60,126,255,255,255,255,126,60,0,0,24,60,60,24,0,0 

200 RESTORE 1190 

1210 FOR A=1080 TO 1095 

1220 READ E 

1230 VPOKE A,R 

1240 NEXT A 

1250 VPOKE '8208,144 :VPOKE 8209,32:VPOKE 8216,160:VPOKE 8217,160:VPOKE 8219, 160 
1260 VPOKE 8198,208:VPOKE 8199,208 

1270 P=0:V=3: DEFFNH(X, Y) =VPEEK (6146+32kX+Y) 

1280 CLS:PRINT" poe. paa, | PÚNTOS:00000 Ml VIDAS:00 8 Fuma 
1290 FOR A=1 TO 17:PRINT"Jeecrrrrrcr cc ccccc cc ccenasa [" ; ¿NEXT A 

1300 PRINT"  E_QR— e y y rr E 

1310 LOCATE 25,1:PRINTUSING"+H" ¿Y 
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1320 X= 12: NS 143 S= 43 =0 
139307 XB=X+YB=Y->- 
1340 SOUND 8,15 
_ 1350 D= STICK(0) 

1360 IF D=1 THEN 

1370 IF “THEN 

1380- THEN-- 

2 1890. THEN 
: 1400 THEN. 
1410 THEN 
1420 THEN 
1430 -I1F-S=4 THEN- 
1440 G=FNH(X., Y)... 
1450 IF G<>136 THEN GOSUB 1510 o , ES 
1460 P=P+S:¿LOCATE 9,1 :PRINTUSING"HRiR ¡Po 
1470 C=C+1:1F 0>458 THEN FOR A=1T03: 'SOUNDB, 15:FORB=0T0255 :SOUNDO,B:NEXTE': SOUNDS, 
-O¿NEXTA:P=P+50:G0TO 1280 - 
1480. SOUND 8,12:FOR A=90TO 250 STEP20 :SOUND O,A:NEXT A:SOUND 8,0 
1499 LOCATE Y, X:PRINT"S 
1500 GOTO 1350 
1510 FOR A=15 "TOO STEP -1 
-. 1520 VPOKE 8208,16xA:S0UND 8,15:FOR B=250 TO O STEP —£:SDUND O,B:NEXT B:SOUND 8, 
 OL4NEXT A: VPOKE 8208, 144 

_1530 V=V-1:1F V<O THEN RETURN 1550 
1540 LOCATE 25,1:PRINTUSING"*4" Y 
“1550 RETURN 1280 

1560. BEEP 

1570, PLAY. "V1504CDO3B04E2R4" ,”"V15D4EFDGZR4" ,"V1504GAGOSCZRA" 

1580 IF PLAY(0)=-1 THEN 1580 3 

“1590 COLOR 7:CLS : eii 
1600 PRINT:PRINT" HA ER ZE == Donna .. n 
ED NO NE EN ERAN NEO : NAME a n= 

1610 PRINT:PRINT" EE BUENO uu 
DDD nun HERNANDO mm ma A au 
“1620 VPOKE 8219,208 :VPDKES217,208 e ul 

-1630 LOCATE O, té: A$= "PUNTOS :"+STR$(P) :GOSUB 1700 
1540 A$="ODTRA PARTIDA (S/N)":GOSUB 1700 


O TT 
e 


DA 


MOMIAS 


<<xxuUNA 


ON 


1650 A$=INKEYS 
1560 IF it OR A$="s" THEN RUN 
"1670 IF A$="n" OR A$="N" THEN SCREEN“Os FOR Aer TO "SO7:AS=INKEYS$:¿NEXT> A: END 


1680 Aranda bano +VPOKE 8219,V: VPOKE 8217,V:FOR A=1TOSO:NEXT. A 
1590 GOTO. 1650 


1700 PRINTTAB (15-LEN(AS) /2) ¡0S:PRINT:PRINT:RETURN 
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GENERADOR DE 
SONIDOS 


1000 
1001 


1002 


1003 
1004 
1010 
1020 
1030 
1040 
10530 
1060 
1070 
1080 
1090 


1100. 


1110 
1120 


. 11:30 


1140 
1130 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 


ior"” 
1280 
ior" 
1290 


2, XXX MAA AAA 1211111 

$ k s 3 
S X GENERADOR DE SONIDOS E 2 
, X . 

e KXAARRARAKXAKA RARA XXZIL 


KEYOFF 

BEEP 

SCREEN 3,,0 
COLOR 1,15,15 
CLS 

A=RND(—TIME) 
OPEN "GRP:" ASK1 
PRESET (0,0) 


PLAY "V15T20004BBBAGFEDCOBBAGFEDNCO2BAGFEDCCC" ,"Vi5T20006BBBAGFEDCOSBAGFENCO 
4BAGFEDCCC" 


FOR..A=1..TO.60 


COLOR 1+RND(1)x13 
PRINT*1," SOUND)?" 


NEXT A 


CLOSE 
FOR. A=1 TO 1000 
NEXT A 


ON STOP'GOSUB 1810 


STOP ON 
SCREEN 0, ,0 


COLOR.1,15 
LOCATE ¿0 


PR INT MoalalalORlRÓ laa lalalala lalallalolBloalojajBlojploiopiobt GENERADOR DE SONIDOS **x CREASO 
UND aaa aaa lola lalalala lciaidiojookx " 
1270 PRINT"00: 00000000 -Tono A: Byte Inferior 01: 00000000 


PRINT"02: 00000000 —Tono BE: Byte Inferior 03: 00000000 


PRINT"04: 00000000 —-Tono-Er Byte “Inferior 05: -$9000000 


Byte Super: 
Byte. Super 


— Byte-Super” 
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- 13 


ior" i 
1300 PRINT"06: 00000000 -Generador Ruido (0-31) 07: 00000000 -Habilita Voz y Rui 


do 08: 00000000. -Amplitud voz A 09: 00000000 —Amplitud voz B 1 
0: 00000000 —Amplitud voz € 11: 00000000 —Periodo env. byte inf... 

1310 PRINT"12* 00000000 byte sup. 13: 00000000 —Fórma de la envolv 
ente  " Es i 


1320. PRINTMAaaadIOOÓOOIIIO dado Io daa: 

1330 DIM S$(13) 

1340 DEF FN B$(N)=RIGHT$("00000000"+BIN$(N),8) 

1350 FOR A=0 TO 13 

1360 SOUND A,0 

1370 S$(A)="00000000" 

1380 LOCATE 4,A4+4 

1390 PRINTS$(A); 

1400 NEXT A 

1410 X=0:Y=0 

1420 D=STICK(0) 

1430 IFD=10RD=20RD=S8THENX=X-1 : 1FX<OTHENX=0 

1440  IFD=40RD=SORD=6THENX=X+1 :1FX>13THENX=13 

1450 IFD=20RD=30RD=4THENY=Y+1 :1FY>7THENY=7 

1460 IFD=60RD=70RD=STHENY=Y-1:1FY<OTHENY=0 

1470 LOCATE Y+4,X+4,1 

1480 IFSTRIG(0)=-1THENGOSUB 1560 

1490 A$=INKEYS$ 

1500 IF A$="=" THEN GOSUB 1610 

1510 IF A$="-" THEN GOSUB 1640 

1520 IF A$=CHR$(13) THEN GOSUB 1590. 

1530 IF A$="C" THEN BEEP:GOTO 1350 

1540 IF INKEYS="D" THENGOSURB 1730 

1550 GOTO 1420 

1560 AS=MID$(S$(X) ,Y+1,1) 

1570 IFA$="1"THENMIDS (S$(X) ,Y+1,1)="0":LOCATE Y+4,X+4,0:PRINT"O" 
1580 IFA$="0"THENMIDS(S$(X) ,Y+1,1)="1":LOCATE Y+4,X+4,0:PRINT"1" 
1590 SDUND X,VAL("2B"+S$(X)) 

1600 RETURN 

1610 N=VAL ("£B"+S$(X)) ¿N=N+1:IFN>255 THEN N=255 

1620 8% (X) =FNB$ (N) ¿LOCATE4,X+4,0:PRINTSS (X) :LOCATE 9,20:PRINT"DATO EN DECIMAL :"; 
N; " u 

1630 GOTO 1590 

1640 N=VAL ("£B"+8S$(X)) :N=N-1:IFN<O THEN N=0 

1650 GOTO 1620 
1660 LOCATE ,,0 
1670 FOR A=20 TO 22 
1680 LOCATE 0,A 
1690 PRINT" 

1700 NEXT A 

1710 LOCATE 0,21 
1720 RETURN 

1730 GOSUB 1660 
1740 PRINT"DATA "; 
1750 FOR A=0 TO 13 
1760 B=VAL("£B"+S$(A)) - 
1770 PRINT-RIGHTS("0"+HEX$(B),2); 
1780 IF A<13 THEN PRINT","; 
1790 NEXT A 

1800 RETURN 

1810 BEEP 

1820 LOCATE ,,0 
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ENANA RPRR?PRORPRPRPRRRRRN/?2Rad 


1830-STOP-DFF 
1840 SCREEN 0 
1850 RETURN 1860 
1860 PRINT"FIN" 
1870 PRINT:END 


t 


1050 KEYOFF 

1060 BEEP 

1070 SCREEN 3 

1080 COLOR 15,1,1 

1090 CLS 

1100 OPEN "GRP :"ASit1 

1110 PRESET (36,80) 

1120 COLOR 7 

1130 PRINTH+*1.,"DRIVER" 

1140 PRESET (32,80) 

1150 COLOR 4 

1160 PRINT+1,"DRIVER" 

1170 LINE (0,50)-(256,60) ,6,BF 

1180 LINE. (0,130)- (256,140) ,6,BF ; 
1190 PLAY "ViS5CEDGFEDFEBGFENCCCV1OCVSC"", "V1SO3CEDGFEDFEBSGFENCCCV140V13C0V120V10CV 
8cv3c" 

1200 IF PLAY(0)=-1 THEN 1200 

1210 CLOSE 

1220 A=RND(-TIME) 

1230 V=RND(1)/10 
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1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
16520 
16530 
1540 
14550 
1560 
1570 
1580 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
19840 
1850 
1860 
1870 


C=13.94 
D=3 

IS=0 

S=144 

DEFFNG=VPEEK (6304+INT(S/8)) 
DEFFNH=VPEEK (6305+INT (S/8)) 
SCREEN 1,2,0 

COLOR 1,2,2 


FOR A=0 TO 22:PRINTTAR (11); "MY" :NEXT A 


GOSUB 1900 
SOUND 4,24 

SOUND 6,32 

SOUND 7,3 

SOUND 8,2 

SOUND 9,2 

SOUND 10,16 

SOUND 11,58 

SOUND 12,0 

SOUND13,14 

FOR A=-20 TO 32 
SOUND11,90-A 

PUT SPRITE1,(141,A),6,0 
FOR B=1 TO 75 

NEXT B 

NEXT A 

TIME=0 

IF D=1 THEN C=C+Y 

IF D=2 THEN C=C-Y 


IF RND(1)>.97 THEN D=1+INT(RND(1)X3) ¿V=RNO(1)/65 


LOCATE11+8XC0S(C) ,23:PRINT" WI," 
J=STICK (0) 

IF J=3 THENIS=IS+2 

IF J=7 THENIS=IS-2 
S=S+IS 

IF 15<>0 THEN IS=IS-SGN(IS) 
PUTSPRITE1,(S-3,32),6,0 
IF FNG<>219 OR FNH<>219 THEN GOTO 1620 
GOTO 1500 

BEEP 

SOUND 6,21  ' 

SOUND 7,247 

SOUND 8,16 

SOUND 11,100 

SOUND 12,60 

SOUND 13,0 

FOR A=1 TO 5 

PUTSPRITEO, (S-3,32),15,A 
FOR B=1 TO200 

NEXT B 

NEXT A 

SCREEN 1:P=TIME 

SCREEN 1 

COLOR 7,1,1 

LOCATE 0,6 

A$="GAME OVER" 

GOSUB 1990 

LOCATE 0,12 

A$="PUNTOS :"+STR$(P) 
GOSUB 1990 

A$="DTRA PARTIDA (S/N)" 
GOSUB 1990 

POKE £HFCAB,255 
AS=INKEYS 

IF A$="S" THEN RUN 
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[Da fo fo fo fa o fo fa 12 12 fo $ fo 12 12 12.18. 1.J2.£2 


fa 


2 fa fo /9 13 


1880 IF A$="N" THEN FOR A=1 TO 50 +Aé=INKEYS NEXT A+ SCREEN O :END 
1890 GOTO 1860 Eat 

1900 DATA 7,F,1C0,1B,1F,1B,B,F,B,A,1C,1F,1F,F,9,7,E0,F0,38,D8,F8, De, DO, FO, po, 50,3 
8,F8,F8,F0, 30, E0,0,81,11, 29, 18, 17, 4B,D, E7, 34 ,2D, er, 1B, 1E, ,34, de, 20, 82 80, 4E, jala ¿FS 
e ÉO, F8, DE, FF, FO, 78, 39, 28,90 
1910 DATA o, 20 22, 10, 5,0, 52, 8, 1,205,10,4,0312, 0 e 40, 10,0,40,4,20, ,40,8, 0,44,0,90 
$2,40510,0: 07 40, 2, o, 10, 2, O, 80, 2, 05,2,10,0,1,0; o 52,20, 0; 0 48, 0,0,9,0,4,40, 0; 10, ó, 4 
1920 DATA. 1, Ó ,0,2,80, 0,0,0,0 20, 0,0,0, o, Ñ 10, 0,0,22,0,0, o, 8, O, í, O, o, O, 4, o, os 8 
1930 RESTORE 1900 IE DA O DO E . E 
1940 FOR 4336 TO 14495 

1950 READ Bg > 

1960 VPOKE-A, ¡VAL ("RH"+BS) 

1970 NEXT.A 

1980 RETURN 

1990 PRINTTAB(15-LEN(AS) /2) ; ¡AS 
2000 PRINT. 

- 2010-PRINT- 
2020 RETURN 


PS 


1002 
1003. 
1004 
1010 
o LO20- E 
1030 

Le E 

1050 KEYOFF 

1060 BEEP ET 
co dO7O-SOREEN- IO 
1080 COLOR 1,2,2 
- 1090 GOSUB 2220 A ad. 
1100 LOCATE 0,2:PRINT"”. ———— AAA | PUNTOS. [| 1 FALLOS 1 


| PEI | | 0000 | | 0000 | E a ÁKÁKÁ 
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1110 LOCATE 0,17:PRINT" 

E E 
1120 GOSUB 1730 
1130 P=0 
1140 -F=0 
1150 DEFFNPS(P)=RIGHTS("0000"+MIDS(STRE(P),2,4),4) 
1160 Af="--==% CURILETES =--" 
1170 GOSUB 1900 
1180 PLAY "ViSD4CNDEGEEE","VISDG6CNEGEEE" 

| 1190-1F PLAY(0)=-1 THEN 1190 

| 1200 As=" " 

| 1210 GOSUB 1900 

1220 PUTSPRITES, (115,90) ,4,1 

1230 N=2 

1240 --GOSUB 1500 

1250 GOSUB 1810 

1260 GOSUB 16500 

1270 FOR A=1 TO 50 

1280 A$=INKEYS 

1290 NEXT A 

1300 A$="ADIVINA DONDE ESTA" 

1310 GOSUB 1900 

1320 A$=INKEYS$ 

1330 IF A$<"1" OR A$>"2" THEN 1320 

1340 R=VAL (A$) 

1350 As$=" " 

1360 GOSUB 1900 

1370 BEEP 

1380 SOUND 8,15 

1390 FOR A=100 TO 250. STEP 7 

1400 SOUND O,A 

1410 NEXT A 

1420 SOUND 8,0 

1430 N=R 

1440 GOSUB 1500 

1450 IF UsR THEN GOSUB 1910 ELSE GOSUB 2000 

1460 GOSUB 1770 

1470 GOSUB 1850 

1480 GOTO 1250 

1490 PUTSPRITEN, (55+30XN,90) ,7,0:RETURN 

1500 FORA=90 TO 65 STEP -1 

1510 PUTSPRITEN, (55+30XN,A) 

1520 BEEP. - 

1530 NEXT A 

1540 RETURN 

1550 FOR A=65 TO 90 

1560 PUTSPRITEN, (55+30XN,A) 

1570 BEEP 

1580 NEXT A 

1590 RETURN 

1600 U=RND(-TIME) 

1610 U=i+INT(RND(1)x3) 

1620 A$="!!! CAMBIO LA BOLA !!!" 

1630 GOSUB 1900 

1640 PUTSPRITES, (55+30£U,90),4,1 

1650 FOR A=1 TO 20 

1660 SOUND 1,100+RND(1)x150 

1670 SOUND 8,15 

16480 FOR B=1 TO RND(1)x150 

1690 NEXT B:SOUND 8,0 

1700 FOR B=1T0 50 

1710 NEXT B 

1720 NEXT A 


1730 FOR N=1T03 


E: A A E E 


A 
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1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 


1840: 


18930 
1860 
1870 
1880 
1890 
1900 


GOSUB 1490 

NEXTN 

RETURN 

FOR N=1T03 

IF VPEEK(6912+4XN)=290 THEN GOSUB 1500 
NEXTN 

RETURN 

FOR N=1T03 

IF VPEEK(6912+4XN)=455THEN GOSUB 1550 
NEXT-=N 

RETURN 

LOCATE '6,5 

PRINTFNPS(P) 

LOCATE 19,5 

PRINTFNP$(F) 

RETURN 

LOCATE 0,8:PRINT" 


A$)/2) ¡AS ¿RETURN 


1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
C,FC 
0,Cco 
2230 
2240 
2250 
2260 
2270 
2280 


P=P+5 

GOSUB 1850 

SOUND 8,15 

FOR A=1 TO 10 

FOR B=0 TO 255 STEF A 
SOUND O,B 

NEXT B 

NEXT A 

RETURN 

F=F+1 

GOSUB 1850 

SOUND 1,1:SOUND 8,15 
FOR A=150 TO 255 STEP .2 
SOUND 0,A 

NEXT A 

SOUND 8,0:SOUND 1,0 

IF F>4 THEN RETURN 2090 
RETURN 

GOSUB 1770 

GOSUB 1810 

A$="GAME OVER" 

GOSUB 1900 

FOR A=1 TO 2000 

NEXT A 

A$="OTRA PARTIDA (S/N)" 
GOSUB 1900 

POKE RHFCAB,255 
Aé=INKEY$ 

IF A$="S" THEN RUN 

IF A$="N" THEN SCREEN O:END 
GOTO 2180 


"“Í:.LOCATE 0,8:PRINTTAB(15-LEN( 


DATA-7,0,19,13,37,27,27,33,30,3F,3F,3F,3F,3F,1F,7,E0,FO,F8,F8,FC,FC,F4,CC,3 
¿FECSFCL EC, FO¿F8,50.,0,0,0,0,0.,0.,0.,0,0,1,2,3,3,1,01,0,0,0.,0,04040,0.,0,0,B0,COy6 


,80,0,0 

RESTORE 2220 

FOR A=14336 TO 14399 
READ BS 

VPOKE A,VAL ("RH"+E$) 
NEXT A 

RETURN 
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eS 2 
E A RR 
E ES 7 E E E EE 


1000 -*-xkk-CUCO *kkx 
1010 "| 
CC 1OZO * 
E ¡O O Ta a 
1050. KEYOFF 
1060 BEEP 
1070 SCREEN .3,2,0 
tOSO”COCOR" 115,15 
1090 CELS 
1100. OPEN "GRP:"ASH1... e 
1110 LINE (50,50)- (210, 150) ,y1,BF 
- 1120 PRESET (76 86) ,1 
000 1 Ñ 30"COCOR 7 Pe cobros 0S re rre lo 
--1140-PRINTH1,"CUCO"- 
1150 PRESET(72,86).,1 
1160 COLOR 4 
1170 PRINTH1,"CUCO" 
“1180 "LINE "(5O, SO0=(2107150),6,B" 
1190. CLOSE ¿ : 
1200 PLAY “V 1SEDCDEFFDGEFCBASCFDBEGCCCO"- 
1210 IF PLAY (0) +-1 THEN 1210 : 
1220 SCREEN 1,2,0 | Ne 
1240 CL5 j Ec j A 
1250 P=0 
1260 F=0 a : ¿ | 
FrUIZ270 DEFFNPS (P) =RIGHTH ("0000"+MIDS (STRE(P> 1249) ,4) 
..1290 GOSUB. 2120. 
1300 M=1 a 
: 1310 GOSUB 1730 
bo 1820 PUTSPRITE 1,(5272),13,2 an 
¿ E. ci BO. 1 E--STRIG(0) 1-THEN-GOTOD-1350- : A ¡era e e PO ae AURA h TS 
1340 GOTO 1310... Laa : z E: a ss 
1350 SOUND 8,15 
- 1360 SOUND 1,0 
--1370 FOR A= 52 TOri90 a 
. bo 1380..SOUND. o y170"A- e O y me 
Elo. 1 1390 PUTSPRITE. 1,(A, 72),13,2. 
1400 NEXT A 
(1410 SOUND 8,0 PRA 338 : 
bes h 1420 1F M= De: THEN 1520 e A A ; my sE 2 E á ¿ Bco : E a O 
, rn SOUND. «Boy 15 A A A € deba , > dE E Pa 


El 


-1440-FOR-A=72 TO 167 

1450. SOUND 0,A 

1460 PUTSPRITE 1,(190,4),13,2 

1470 NEXT A | 

1480 SOUND 8,0 

1490-FsF+looo oo | 

1500 LOCATE 18,2:PRINTENP+$(F) 

1510 GOTO 1690 

1520 SOUND 8,15 

1530 FOR A=190 TO 198 

1540- SOUND. 0.,255-(4-189)*X20- 

1550. .PUTSPRITE..1,(4,72),13,2 

1560 FOR B=1 TO 30 

1570 NEXT B | 

1580 NEXT A | 

1590. SOUND-8,0- 

1500 FOR A=1 TO 9 

1610 M=3-M | 

1520 GOSUB 1740 

1630 FOR B=1 TO 100 

16440. NEXT. B . 

1650 NEXT. A 

1660 P=P+5 

1670 LOCATE 7,2 

1680 PRINTFNP+(P) 

1690 FOR. A=1..TO.-1000 

1700 NEXT.A 

1710 IF F>4 THEN 1880 

1720 GOTO 1300 | | 

1730 IF RND(1)>*.9 THEN M=3-M:SOUND 9,15:S0DUND 9,0 
1740 IF M=1 THEN PUTSPRITEO, (192,73) ,5,0 | 

1750 IF. M=2 THEN PUTSPRITEO, (192,73) ,5,1 

1760 RETURN i 


' 


Judd 


1770 CLS | 
1780 PRINT" "> YI 4h PUNTOS 444% FALLOS 4% 444% 0000 
YN D000 GUN" 
1790. PRINT "YY YI RRA RR RARA nn | YY 
Y ¡AR YA ERER/// | SERE 
| TEE ESE | TEEN 
1800 PRINT" k + DE | 3638 | ho DI // 1 355 | ok 
A oo UVA En * | | YA) 
0 HZ: Moooo000000o co pes 
1810 PRINT" YARD NM 2... 10. /4ADIE NU ». y o + + 
| Moool E E | A E | YN 
YAA AAA AA AAA 
1820 VPOKE 8218,1 


1830 VPOKE 8217,166 

1840 VPOKE 8193,195 

1850 VPOKE 8219,64 

1860 LOCATE 0,0 

1870 RETURN 

Ñ 1880 PLAY "ViS5T2O0OBBBBAGFEDCCCC" 
1890 IF PLAY (0)=-1 THEN 1890 
1900 SCREEN 1 

1910 LOCATE 0,5 
1920-A$="GÁME OVER" 

1930 GOSUB 2070 

1940 LOCATE 0,10 

1950 A$="PUNTOS: "+FNP+$(P) 
1960 GOSUB 2070 

1970 A$="O0TRÁ PARTIDA (S/N)" 
1980. GOSUB 2070 

1990 FOR A=1 TO 50 

2000 Af=INKEYS 


1 


AD) 
o 
hn 
E 
PS 
A 
E 
O 
A 
= 
EJ 
Én 
= 
Ñ 
e 
> 
A 
S 
e 
] 
> 
SD 
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E 
p! 


MT IN 
A 


2010 NEXT A 
2020 POKE RKHFCAB,255 
2030 A$=INKEYS$ 
2040 IF A$="S" THEN RUN 
2050 IF A$="N" THEN SCREEN O:END 
2060 GOTO 2030 
2070 PRINTTAB (15-LEN(A$)/2) 30$ 
2080 PRINT 
2090 PRINT 
¿2100 PRINT 
2110 RETURN 
2120 DATA 0,0,0,3,7,3,0,0,0,0,0,0,0,0,0,0,0,38,78,BO,FC,FE,DF,1F,3F,3F,3F,1F,1F > 
F,C,1F,0,0,6,3,1,0,1,6,0,0,0,0,0,0,0,0,0,38,78,BO,FC,FE,DF,1F,3F,3F,3F,1F,1F,F,C 
,1F 
2130 DATA 0,0,0,0,10,3E,3E,1C,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
2140 RESTORE 2120 
2150 FOR A=14336 TO 14431 
2160 READ B* 


2170 VPOKE A,VAL("2H"+BS) 
2180 NEXT A 
2190 RETURN 


AN Ss 


PUENTES 


1 * XX PUENTES moto 
1010 * 


1040 - 

1050 KEYOFF 

1060 BEEP 

1070-SEREEN 3,1.,0 

1080 COLOR 13,1,1 

1090 CELS 

1100 OPEN "GRP:" ASH1 

1110 LINE (0,120)- (236,60) ,4,BF 
1120. PRESET (39,78),4 

1130 PRINTR*1i,"PUENTE" 
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OH 0/0/90 M-0-:0:0-0/8 0; 0/0/00 0//20/28/2 


Sa 13133 1D 4 


PRESET (35,78),4 

COLOR 1 

PRINTH1, "PUENTE" 

LINE (0,60)-(256,60),7 


LINE (0,120)-(256,120),7 
COLOR 15 

O PLAY "V15T2306FEDFGEDBAGDFEECGDFEBDGEFDCCC" 
CLOSE | 

IF PLAY(O)=-1 THEN 1220 
SCREEN 1,2,0 


COLOR 1,12,12 
CLS 

VPOKE 8219,112 
VPOKE 8218,17 
VPOKE 8216,225 
FOR A=1 TO 3 


PRINT" IURNLNRIRRE 


FOR A=0 TO 19 

LOCATE 11,4 

PR INT" IE 

NEXT A 

PRINT" 571 A | ¡PUNTOS | ¡FALLOS | | 0000 | 
| 0000 1 ASA AAA 

GOSUB 2360 

P=0 

F=0 

DEFFNPS (P)=RIGHTE ("0000"+MIDS(STRE(P),2,4) ,4) 

S=1 

GOSUB 1590 

Mi=0 

Yi=0 

C1=6 

M2= 

Y2=130 

C2=4 

A=RND (TIME) 

A$=INKEYS 

IF S>0 AND As+="1" THEN GOSUE 1630:5=0:GOSUB 1690 

IF-S<>1 AND A+="2" THEN-GOSUB -1630:S=1:G0S5UB-1690 

IF 52 AND As="3" THEN GOSUR 1630:S=2:G0SUB 1690 

Yi=Y1+4 

IF Y1>256 THEN GOSUB 1750 


—PUTSPRITEO,(Y1,23+48*M1),C1,0 


IF. Y1>88ANDY1<168ANDM1<>S-THEN -GOSUB 1790 
Y2=Y2-4 

IF Y2<0 THEN GOSUB 1850 
PUTSPRITE1,(Y2,23+48XxM2) ,C2,0 

IF Y2>88ANDY2<168ANDM2<>S THEN GOSUB 1890 
GOTO 1500 

E=2+6%S 

LOCATE 10,E:PRINT" a: 

LOCATE 10,E+1 :PRINT" SU: 

LOCATE 10,E+2:PRINT "SAMA," 

LOCATE -10,E+3:PRINT" AMAS 

RETURN ; 

E=2+6%5 

LOCATE 10,E:PRINT" YET" 

LOCATE 10,E+1:PRINT "ARRE" 

LOCATE -10,E+2:PRINT "SARRIA" 

LOCATE 10,E+3:PRINT" RO" 


- RETURN 


1750-10 
1760 M1=INT(RND(1)X3) 
1770 Ci=2+INT(RND(1)X13) 
1780 GOTO 1950 
1790 GOSUB 2040 
1800 PUTSPRITEO,,9,1 
1B10..M1=S... 
1820 FOR A=1 10 200 
1830 NEXT A 0. 
1840 GOTO 1990 
A BSO—Y 2256" j 
E 1860 M2=INT(RND(1)X3) 
1870 C2=2+INT(RND(1)X13) 
1880 GOTO 1950 
1890 GOSUB 2040 
1900 PUTSPRITE1,,9,1 
1910 M2=8 
1920 FOR A=1 TO, 200 
1930 NEXT A 
1940 GOTO 1990 
1960 LOCATE 4,22 
1970 PRINTFNPE(P> 
1980 RETURN 
1970 F=F+1 | 
pa 2000-LOCATE 22,22 > 
e 2010 PRINTENPS(F) 
7] 2020 1F F>9 THEN RETURN 2110 
o 2030 RETURN. 
| 2040 SOUND 6,21 
2050 SOUND 7,247 
2060. SOUND.B,16.. 
2070 SOUND 11,100 
l 2080 SOUND 12,60 
po “2090 SOUND 13,0 
A 24.00 RETURN z 


2110 BEEP. | 
2120 PLAY "V15T20OBBBBAGFEDCCCC" 
2130 SCREEN 1 -. 
2140 LOCATE 0,5 
-2150-A$="GAME- OVER" :SOSUB 2300. 
2160 LOCATE O,11 
2170 As="PUNTOS: "+FNPS(P) 
2180 GOSUB 2300 
2190 A$="OTRA PARTIDA (S/N)" 
2200 -GOSUB 2300 
2210 FOR A=1 TO 50 
A 2220 AS=INKEYS 
: 2230 NEXT A 
2240" POKE 2LHFCAB,255 
2250. A$=INKEYS$ 
2260 1F A$="S" THEN RUN 
2270 1F A$="N" THEN SCREEN O:END 
2280 GOTO: 2250 
2290 LOCATE 0,0 
2300. PRINTTAB(15-LEN (4%) /2)34$ 
2310 PRINT 
2320 PRINT 
2330 PRINT 
2340 RETURN 
2350 END 
2360 DATA 0,0,0,1C,7F,F4,F3,F3,F3,F3,F4,7F,1C, o. O, o, 04 o, 0,38,FE,2F,CF,CF,CF EEE 
F,FE,38,0,0,0,8,05 o, 24, 0,8, 3, 23, Bai, 83, 12, 10, 84, O, 10, Ó, 82, o, 88, o, AO, 4,E0,C0,C9,É 
0,80,8, 42, O, 90 
2370 RESTORE 2360 
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ASIA ER IA LA ORPAREARAEDS £ La o eY EVO. 17) la fo 12 19 14 


36-TO 14399 


2390. READ B+. 
2400. Mica (3d. VAL ("2H"+B$) 


o 


KEYOFF 
"BEEP" 

SCREEN o : 

COLOR..1., o, il 


PAPEL 1"4P an 
IF P<O OR P>15 THEN 1190 ais 
INPUT "RORDE:":*B 
O IF B<O OR B>15 THEN 1210. 
“INPUT "TINTAS "3T a 
O -IF-T<0-OR-TA1LE- THEN 1230 


1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1450 


AAAOOIORROOOIOIOOOIOO YX 
" k INPUT DATOS DONUT x 
O RROIOIOO OOOO OIOPIOIOIdlOIOJdIL 
eS 

PRINT"PARAMETROS DEL DONUT..." 
PRINT - 

INPUT "GROSOR:"6 

INPUT "ANCHO: "+¿X1 

INPUT "ALTO:"¿Y1 

INPUT "CONCENTRACION: "¿0 
SCREEN 2,1,0 

COLOR T,P,B 

CLS 

PI=3.1416 

PO IOOOIOOIORIOOODODIOROEE 

” * DIBUJO DEL DONUT kx 

PO IOOOIODIODIODO OOOO 


FOR “A=0 "TO 2xPI STEP PI/E 

X=X1XxC0S (A) 

Y=YiXSIN (A) 

CIRCLE (X+127,Y+87) ,G,T 

NEXT A 

PLAY "V1504CDO3BO4E2R4” ,"V1504EFDG2ZR4","Vi504GAGOSC2R4" 
IF PLAY(0)=-1 THEN 1540 


FOR A=1 TO 50 

A$=INKEYS 

NEXT A 

4 

2 IOjOlOOBIBIODIODODONxxr 
XK ESPERA PARA SEGUIR £ 
"OA AAA AAA AL 
A$=INKEYS3$ 

IF A$<>"" THEN RUN 

GOTO 1630 
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R 
_ 
2 
AS 
MS 
O 
AN 
E) 
> 
E 


=D 
> 
=> 
> 
> 
+ 
> 
mo 
O 
0 
S 
»] 
€ 
= 


NATACION 


1000 
1010 


1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 


MOGIOOOO AX AX 
* Xx 


va 

* XX NATACION E 
XK x 
OOOO xxx 
/ 


Y 


KEYOFF 

BEEP 

SCREEN 3,1,0 

COLOR 1,7,7 

CLS 

OPEN "GRP:"AS$1 
A+="NATACION* 

X=35 

FOR A=1 TO 8 

COLOR 15 

PRESET (X+4,80) 
PRINTH1,MIDS$(0$,0,1); 
COLOR 1 

PRESET (X,80) 

X=X+24 
PRINTH1,MIDS$(A$,A,1)5 
SOUND 8,15 

FOR-B=0 TO 255 STEP 10 
SOUND 0,B 

NEXT B 

SOUND 8,0 

FOR Est TO 100 

NEXT B 

NEXT A 

FOR A=62 TO O STEP -8 
LINE (0,0)-(256,A) ,4 
LINE (0,192-A)-(256,192-A) ,4 
NEXT A : 
PLAY "V15T220DFEGFBCAGOFEGABBDGFDCCC" 
IF PLAY(0)=-1 THEN 1360 
FOR A=0 TO 256 STEP 4 
LINE (A4,0)-(4,196) ,7 


NEXT.-A 


SCREEN 1,2,0 
COLOR 15,1,1 
BES 
GOSUB 1950 
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1480 


Mn 
1500 


1510 
1520 
1530 
1540 
1550 


1560 


1570 
1580 
1590 

| 1500 

Lera z “STO 

1620 
1630 
1640 
1550 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
.1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 


1960 


FOR. fr 1 To 6 


VPOKE 8218,247 
VPOKE-8217,103- 
VPOKE 8219,119. 
PRINT "4 


As$=CHRS$ 48+A) pp 
PRINT"N» $44.944... e $%++.. 00 RE 


NEXT A E popa e | 
PRINT"NY 0 000 e . $0 0 0 e Y REIR 
DIM NA)... ooo 

M=1 


H=1 


FOR A=1 TO 6 


N(A)=40 

PUTSPRITEA, (20 ,TE2ARA) 1, 2 

NEXT A 

PLAY "VISDACCRISCCRISOSCC" 

FORA=1T01500 :NEXTA E pa i i 
FOR A=1i TO tb E 100. ón PP i Sesion 
PUTSPRITEA, (28,7+24kA),1,3 a E 
NEXT A 

TIME=0 

GOSUB 2080 

FORA=1T0150 :NEXTA 

FOR A=1 TO £ 

PUTSPRITEA, (35,7+24XA),1,0 

NEXT A 

D=STICK(0) 

IF. D=3 AND M=1 THEN M=2:N(1)=N(1)+4:G0TO 1740 

IF D=7 AND M=2 THEN M=1:N(1)=N(1)+4 

PUTSPRITE1,(N(1),31) ,4,M-1 

1F N(1)>230 THEN F=1:GOTO 1850 

X=2+INT(RND(1)X5) 

N(X)=N (X)+8 

PUTSPRITEX , (N(X).,7+24XX) ,1,H-1 

H=3-H 

IF ON) >230 THEN F=X:GOTO 1850 

LOCATE 23;1 


a A 

PRINTUSING"44%. HH" 51/50 

GOTO 1710 | e 

LOCATE 1, 1:5PRINT" 6 GANADOR: "¿F - 

BEEP- A e 

PLAY “V15D4CDOZBO4EZRA","VISDAEFDG2ZRA","Vi14D4GAGOSCZRA" 


IF PLAY (0)=-1. THEN. 1880 
FOR A=1 TDS30  : 

AS=INKEYS$ 

NEXT A ¿ aio ¿ ness A ds 
A$=INKEYS 

IF A$<>"" THEN RUN 1400 

GOTO 1920 


DATA 0,0,0,0, 13, 4F,2B,10,47,1F,2F y 3, 11,F,0,0,0,0,38,FE,El, CO, ¿DC ¡FO¿FC,DC, co 
¿£0,80,05,0, o, o, 0, F, 11, 3, 2P 1F, ed 1D,2B, AF, 13, o, o, Ó, O, o, 0,0, 80, co, co, Dc, Fa FC DC, 
Co.,E1 ¡FE, 38, o, 0 


DATA 0,0,0,0,3,1F, 11F,s 7,1211F,1F,3,0,0,010/0,0, O, 78, FE,E1 ,DC, FC, EC, DC, El,FE,7 


8,0,0,0,0,0,0, O», 1, FF, FE, 7y 7, FF, FF, 1,0,0,0,0,0,0,0, 38, EF, FO, EDS FE, En EE, FO, FF ,38, 


0,0,0. 


1970 
0 

1980 

1990 
2000 


DATA 050 DE; FF ,FF ¡7Es 0505 o, o; 7E,FF, don 0,0,0,0,0, o, 0,0,0, o, 0,0,0, o, 0,0,0, 
RESTORE 1950 

FOR A=14336 TO 14463 

READ BS 
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ARIRÍCIERO O. OO IERRIFIRIIE CIERRE 


2010 VPOKE A,VAL ("RXH"+B$) 

2020 NEXT A 

2030 FOR A=1656 TO 1687 

2040 READ Bs$ 

2050 VPOKE--A,VAL("RH"+BS3) 
2060 NEXT. A 

2070 RETURN 

2080 SDUND 6,15 

2090 SOUND 7,%B110111 

2100- SOUND-8,%B10000 

2110 SOUND 11,0 

2120 SOUND 12,11 

2130 SOUND 13,0 

2140 RETURN 


JOVI ON 


1160 PSET (A,RND(1)X70) ,15 
1170 PSET (A,192-RND(1)*70),15 
1180 NEXT A 

1190 PRESET (54,80) 
1200 COLOR 2 

1210 PRINTH1,"LUNAR" 


Y 


Y 
> 
> 
» 
w 
a 
WO 
Ed 
Y | 
F ALUNIZAJE 
É === A 
S E 
1000 * Ada aOOIOIGIOdolaL 
Le 1010" x  . xk 
O 1020 “ *x ALUNIZAJE X 
1030 "xo * 
») 40890 * aaadladdldciciooí 
Á 1050. ' 
E 1060 ' 
> 1070 * 
| E 1080 * 
>] 1090 KEYOFF - 
1100 BEEP.. 
! 1110 SCREEN 3,1,0 
| N 1120 COLOR 15,1,1 
1130 CLS “7 
LL 1140 OPEN "GRP:"ASt1 
hd. 1150 FOR A=0 TO 256 STEP 8 


e 
A z 
AA 


AAA 
eo 


AS 
ds”. 


a __ »_ eee 


1220 
1230 
1240 
1250 


1260 


1270 
1280 
1290 


PRESET (50,80) 

PRINTHR1 , "LUNAR" 

FOR A=96 TO 120 STEP 4 

FOR B=0 TO 256 STEP 4 
IF POINT(B,A)=2 THEN PSET(B,A),8 
NEXT B pe 
NEXT.A- h 


PLAY "Y1506T200C07C06FEDO7COSFEDFEO7COGEFADGEFEDCCC" ,"V1ST20003CCFENCFENFEC 


DGEFADGEFEDCCC" 1 


1300 
1310 
1320 
1330 
1340 
1350 
13650 
1370 
1380 
1390 
1400 
1910 
1420 
1430 
1440 
1450 
1450 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1510 
16520 
1630 
1640 
1550 
1660 
1670 


:1680 


1590 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 

1810 
1820 

1830 
1840 
1850 

1860 
1870 

1880 

1890 


CLOSE 

IF -PLAY(0)=-1 THEN 1310 

SCREEN -2,2,0 

COLOR 15,1,1 

CLS 

GOSUB 2480 

P=0 

GOSUB..1640 

X=INT (255XxRND(1)) 

Y=0 

IX=0 

IY=0 

SPRITE OFF 

ON SPRITE. GOSUB 2330 

D=STICK (0) 

IFD=10RD=20RD=STHEN IY=1Y-1:1FIY<-8THEN 1Y=-8 
IFD=40RD=SORD=5THEN IY=1Y+1:1FIY>8THEN IY=8 
IFD=20RD=30RD=4THEN 1X=1X+1:1FIX>BTHEN -1X=8 
IFD=80RD=70RD=5THEN 1IX=1X-1:1FIX<-8THENIX=-8 
X=X+1X 

Y=Y+1Y 

IFX>255 THEN X=0 

IFX<0 THEN X=255 

IF Y<O THEN Y=0 

SPRITE OFF 

PUTSPRITEO, (X,Y),5,0 

SPRITE ON 

IF POINT(X,Y)=13 THEN 2000. 

IF POINT(X+16,Y)=13 THEN 2000 

IF POINT(X,Y+16)=13 THEN 2000 

IF POINT(X+16,Y+16)=13 THEN 2000 
IF POINT(X+8,Y+16)=13 THEN 2000 
GOTO. 1440 

END 

COLOR 15,1,1 

CLS 

A=RND(—TIME) 

FOR..9=0.T0. 256. STEP. 4 

PSET (A,RND(1)x192),15 

NEXT A 

GOSUB 1940 

XBE=S0+ INT (RND(1)x155) 
PUTSPRITEL., (XE,175)3744 

LINE (XB-2,192)-(XB-2,184),13 
X=XE-2 

Y=184 

X=X-8 

Y=Y-INT (RAND (1)x60)+INT(RNDI(1)x40) 
IF Y<45 THEN Y=Y+45 

IF Y:184 THEN Y=184 

DRAW "C13M=X3,=Y 3" 

IF. X:0-THEN 1760 

X=XB+17 

LINE (X,192)-(X,184),13 

Y=184 

X=X+8 

Y=Y-— INT (RND-(1) 60) +1NT (RND (1) 40) 
IF. Y245 THEN. Y=Y+45 

IF Y;184 THEN Y=184 

DIRAN "C13M=X+3,=Yq" 
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1900.1F.X22%56 THEN 1850 

1910 PAINT (4,190) ,13,13 

1920 PAINT (250,190),13,13 

1930 RETURN 

1940 X=10+RNTO(1)x235 

1950. Y=10+RNO0(1)x20 

1960 R=3+RNDIX E) 9 

1970 CIRCLE: (X,Y),R,2 

1980 FAINT (X,Y>,2,2 

1990 RETURN 

2000 BEEF 

2010 SDUNO 6,21 

ZOZO SOUNO 7,247 

20390 SOUND 8,16 

2040 SOUND 11,100 

2050. SOUND 12,60 

2060 SOUNO 13,0 

2070 FOR A=1 TO 55 

2080 PUTSPRITEO, (X,Y) ¿24+INT(RNO(1)X13) ,2+ INT (RNOC1)x2) 

ZORO NEXT A 

2100 FOR A=15 TO 1 STEF -—1 

2110 PUTSPRITEO,,A 

2120 FOR B=1T0OS50 

2130 NEXT B 

2140 NEXT A 

2150.FOR A=1 TO 500 

2160 NEXT A 

2170 SCREEN 1 

2180 "COLOR 7,1,1 

2170 LOCATE 0,5 

2200. AF="GAME OVER" :GOSUE 2440 

2210 Af="TE ESTRELLASTE" :GOSUE 2440 

2220 LOCATE 0,12 

2230 Af="PUNTOS :"+STRE(P) :GOSUB 2440 

2240 Ar="O0TRA PARTIDA (S/N)":GOSUB 2440 

2250 FOR A=1 TO 50 

2260 AF=INEEYZS 

2270 NEXT A 

2280 FOKE 2LHFCARB, 255 

2290 Af=INKEYS 

2300. 1F As="S" THEN RUN 1320 

2310 IF AF="N" THEN SCREEN Q:END 

2320 GOTO 2290 

2330 SPRITE OFF 

2340 RETURN 2350 

23590 IFIY:3THENZ2000 

2360 PUTSFPRITEO, (XE,168) 

2370 ¡BEEF 

2380 PLAY "Y1504CDI03B04E2R4","V1504EFTG2R4","V1504GAGOS5C2R4" 
2390 IF -FLAY(O0)=-1- THEN- 2390 

2400 FOR A=1.T0 500 

2410 NEXT A 

2420 F=P+75 

2430 G0T0 "1370 

2440 PRINTTAR(15-LENCAR)/2) 0 

2450 PRINT:PRINT 

2460 PRINT 

2470 RETURN 

2480 DATA 3,F,11,21,41,43,FF,AB,AB,FF,7F,F,19,31,61,F3,C0,F0,88,84,82,02,FF,05,0 
S,FF,FE,FO0,98,802,86,0F,40,0,0,04040,0,0,4B,FF¿FE+FE,4DS,D05,FF,FF,0,0,0,0,0,0,0,0,0 
FEF yFF,)FF¿AR,AB,FF,¿FF ¿ : 
2490 DATA 2,20,0,82,30,184,0,27,1B,5F,3,1F,83,23,0,8,20,1,0,88,10,44,00,C8,F1,E0, 
44 ,£0,50,4,20,41,0,4,0,42,0,8,81,0,14,0,10,45,0,12,0,0,0,0,40,0,22,0,8,0,44,0,0, 
22,8,0,0,90 : _ sis 


f 


JIVIVIVTIUVUGAUIUO 


ye / 


IP 


> 
> 
>» 
O 
O 
>> 
TO 
> 
-d 
o 


«+ 
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2500 RESTORE. 2480 


8 
¿510 FORA=14336 TO 14463 
25320 READ Es 
2530 VFOKE A,VAL("2H"+B3) 
2340 NEXT A 
2550 RETURN 


POR TELEFONO... 
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SI PREFIERE SUSCRIBIRSE 


LORLRRERIRORRRRARRRRESRAIAAARR 


NOVEDADES 


IAN KEY-COVER 


x 


¡AN KEY-COVER, ES EL PROTECTOR IDEAL PARA EL TECLADO DE SU AMSTRAD 6128 ESPECIALMENTE DISEÑADO 
PARA REUNIR TODAS LAS CARACTERISTICAS ADECUADAS PARA ELLO: 
— PROTECCION FIRME DEL TECLADO DEL CPC 6128 (REALIZADO CON RESISTENTE METACRILATO DE UNA SOLA 
PIEZA CON NERVIOS LATERALES PARA FIJACION EN EL REBORDE DEL CONJUNTO DE SU ORDENADOR). 
— AJUSTE PERFECTO EN SU ORDENADOR CON SUAVE PRECISION Y COBERTURA TOTAL. 
= — TRANSPARENTE (CONFIRIENDOLE LA PROPIEDAD DE VISUALIZAR EN TODO MOMENTO SU TECLADO). 
— PROTECCION CONTINUA CONTRA ELEMENTOS EXTERNOS (COMO: DERRAMES DE LIQUIDOS, GOLPES, ETC.) 
ADEMAS DE GOZAR DE LA SEGURIDAD DEL BUEN FUNCIONAMIENTO DE SU ORDENADOR AL REANUDAR SU 
DIARIO QUEHACER. UN POCO DE CAFE DERRAMADO SOBRE SU TECLADO ELEVARA ENORMEMENTE EL 
PRESUPUESTO ANUAL DE SU ORDENADOR. EVITE EL RIESGO, PROTEJASE. 
— RESGUARDO PERMANENTE CONTRA EL POLVO Y LA POLUCION (EL 50 % DE LAS AVERIAS DE SU TECLADO SON 
MOTIVADOS POR EL CONTACTO CONSTANTE DE ESTE CON EL POLVO Y LAS PARTICULAS ATMOSFERICAS, EL 
EXCESO DE HUMEDAD, ETC.). ELIMINE UN RIESGO CONTINUO, DOSIFIQUELO. - 
— MANTENGALO LIMPIO SU AMSTRAD 6128, CUBRIENDOLO CON IAN KEY-COVER. 
— DELE AL TECLADO DE SU AMSTRAD 6128 ESA SENSACION DE PULCRITUD, SENTIDO DEL ORDEN Y APARIENCIA 
EXTERNA QUE SU AREA DE TRABAJO, ESTUDIO O ENSEÑANZA, REQUIERE. 


hr 


Para Programadores MSX 
tu fiel compañero. 


Esto no es un libro para el 
principiante novato, al con- 
trario, introduce al progra- 
mador MSX “dentro” del.or- - 
denador, para mostrarle exac- 
tamente como funciona y co- 
mo obtener el máximo partido. 


Los autores han dividido 
su libro en dos partes. 


La primera parte cubre el 
diseño del sistema, como el 
vocabulario de BASIC se rela- 
ciona con los ordenadores 
MSX, y una introducción có- 
digo máquina. Encontrará ex- 
plicaciones detalladas sobre la 
organización de la memoria, 
los modos de pantalla y los 
circuitos de vide y sonido. 


La segunda parte se dedica GUIA sl PROGRAMADOR MSX 
al uso del lenguaje ensam- 
blador en el sistema MSX. Los principa 


puntos: 
— El procesador de pantalla de vídeo. 
— El circuito de sonido AY-3-8910. 
— Entradas/Salidas. 

Tanto si necesitas escribir programas de alta eficacia O 
solamente quieres como trabaja tu ordenador, este libro será 
inestimable. Pensamos que rapidamente se convertirá en el 
texto base para aquellos programadores que quieren hacer 
algo más que escribir programas en BASIC. 

P.V.P. 1800 pts! 


les apartados incluyen los 


Gaby 


Domicilio de envíos: 


Nombre y apellidos 
Domicilio. . 


BIBLIOGRAFIA 


TARJETA DE PEDIDO 


Fdo.: 


PROGRAMACION 
CODIGO MAQUINA PRACTICA 
La llegada de standar MSX, - 
marca un paso significativo 
dentro del mundo de los or- 
denadores domésticos. Ofre- 
ce infinidad de excitantes 
oportunidades para progra- 
madores y usuarios. 

Este libro, supone que no 
tienes conocimientos previos 
sobre código máquina. Em- 
explicando las equivalentes 
en código máquina, de las 
principales instrucciones en 
Basic, tales como IF, FOR/ 
NEXT, PRINT, GOTO, GOSUB, 
etc... Continúa con la descrip- 
ción muy detallada de las ru- 
tinas individuales de un sim- 
ple juego: “INVASOR DEL 
ESPACIO”, y cómo se enlazan 
estas rutinas que puedes 
aprovechar en tus programas 
en Basic. o E 

e Aprende lo fácil que es incorporar rutinas en código 
máquina dentro de tus programas en Basic. 

e Usa el código máquina para crear sonido y gráficos. 

e Diseña tus propios caracteres y “escenarios” con dos 
programas fáciles de usar. : 

Tanto si simplemente desea incluir rutinas para acelerar y 
mejorar tus programas en Basic, como si quieres un programa 
completo y potente en código máquina, encontrarás este 
libro extremadamente útil. En él está suprimida la teoria que 
dificulta el código máquina, y se presenta de una forma 
práctica y divertida de aprenderlo. 

P.V.P. 1.200 pts. 


e La mayor variedad de libros de microinformática, 
capaces de satisfacer todas sus necesidades, ya sean 
profesionales, familiares, culturales... 


o Todo tipo de información bibliográfica sobre micro- 
ordenadores, desde AMSTRAD a Sinclair QL 
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